module __IsLIKE__
  sub main(ByVal Args() As String)

    if args.Length < 2 then System.Console.WriteLine("usage: IsLike target pattern") : Return

    dim target as string = args(0)
    dim pattern as string = args(1)

    system.console.writeline("{0} likes {1} is {2}", target, pattern, target Like pattern)

  end sub
end module